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DO {SWAP = CALLBACK-ROUTINE(COMPARE, UPDATE-AMOUNT); 
} WHILE (CAS (COMPARE, SWAP, SHARED-VALUE) = 1; 
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V ATOMIC_UPDATE_ROUTINE(SHARED- 
' xVaLUE, UPDATE- AMOUNT, CALLBACK- 
K^TINE) 

COMPARE=SHARED- VALUE; 
DO {SWAP = CALLBACK- 
ROUTINE(COMPARE, UPDATE- 
AMOUNT); 
) WHILE (CAS (COMPARE, SWAP, 
SHARED- VALUE) == 1; 
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